home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00051_DirectionEightArrowsTarget.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  3.0 KB  |  142 lines
  1. --
  2. -- DirectionArrows
  3. --
  4.  
  5. -- this class handles all runtime game management.
  6.  
  7. -- constants:
  8. property delaySecs  -- the number of seconds we delay before moving on to the next round
  9.  
  10.  
  11. property ancestor
  12. property responseFlag
  13. property activeSpr
  14. property startPoint
  15.  
  16. global gUI
  17.  
  18.  
  19. on new me
  20.   -- initialize constants:
  21.   set delaySecs = 1
  22.   
  23.   set ancestor = new (script "DirectionEightSprite")
  24.   
  25.   set responseFlag = TRUE
  26.   set startPoint = point (320,240)
  27.   set checkByDirectionFlag = FALSE
  28.   
  29.   -- add (the actorList, new (script "ObjectUpdater", me))
  30.   return me
  31. end
  32.  
  33.  
  34. on destruct me
  35.   if objectP (ancestor) then destruct (ancestor)
  36.   set ancestor = 0
  37. end
  38.  
  39.  
  40. on noResponse me
  41.   set responseFlag = FALSE
  42. end
  43.  
  44.  
  45. on initializeRound me
  46.   hideDraggables (me)
  47.   initializeRound (ancestor)
  48.   showDraggables (me)
  49.   pushOffDraggables (me)
  50.   -- initHandCursor ("hand", getDraggableList (me))
  51.   initPlay (me)
  52. end
  53.  
  54.  
  55. on mouseDown me, spr
  56.   -- watch hardwired direction arrows:
  57.   if spr < 21 or spr > 28 then return 0
  58.   
  59.   -- set up for movement:
  60.   puppetSprite spr, TRUE
  61.   set the memberNum of sprite spr to the memberNum of sprite spr + 1
  62.   set currName = the name of member the memberNum of sprite activeSpr of castLib the castLibNum of sprite activeSpr
  63.   
  64.   -- do the arrow action before checking for match:
  65.   case spr of
  66.     21: set dir = #upleft
  67.     22: set dir = #downleft
  68.     23: set dir = #downright
  69.     24 : set dir = #upright
  70.     25: set dir = #up
  71.     26: set dir = #down
  72.     27: set dir = #right
  73.     28: set dir = #left
  74.     otherwise return 0
  75.   end case
  76.   
  77.   -- actual movement:
  78.   set testSprite = move (me, activeSpr, dir)
  79.   
  80.   -- clean up after movement:
  81.   set the memberNum of sprite spr to the memberNum of sprite spr - 1
  82.   updateStage
  83.   puppetSprite spr, FALSE
  84.   updateStage
  85.   
  86.   set matchSprite = checkMatch (me, activeSpr, testSprite)
  87.   hideUnderSprite (me)
  88.   
  89.   if matchSprite then
  90.     -- play the good response sound
  91.     if responseFlag then playResponseSound(1, 1)
  92.     -- play the proper "ID" sound
  93.     playSprite (gUI, activeSpr, #ID)
  94.     -- if so, move the draggable off the screen and animate the 'hit' container:
  95.     hideDraggable (me, activeSpr)
  96.     
  97.     animateSprites (me, [matchSprite])  -- animate the matching sprite
  98.     
  99.     -- move a bar graph if one has been set up:
  100.     moveGraph (me, the name of member the memberNum of sprite matchSprite of castLib the castLibNum of sprite matchSprite)
  101.     
  102.     updateStage
  103.     if not done (me) then 
  104.       initPlay (me)
  105.     end if
  106.     
  107.   else
  108.     nothing
  109.   end if
  110.   
  111.   return 1
  112. end
  113.  
  114.  
  115.  
  116. -- initialize an individual play:
  117.  
  118. on initPlay me
  119.   set activeSpr = pushOnDraggable (me)
  120.   set startPoint = the loc of sprite activeSpr
  121.   updateStage
  122.   makePictLink (me, activeSpr)
  123.   -- play the intro sound by sprite...
  124.   playSprite (gUI, activeSpr, #prompt)
  125.   -- initHandCursor ("hand", getDraggableList (me))
  126. end
  127.  
  128.  
  129.  
  130. -- check to see if we are done.  
  131. -- if so, then do an action.
  132.  
  133. on done me
  134.   clearPictLink (me)
  135.   if checkDone (me) then 
  136.     wait (me, delaySecs)
  137.     go "finish"
  138.     return 1
  139.   else
  140.     return 0
  141.   end if
  142. end